home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / game / misc / hereticportal.lha / HereticPortal / HereticPortal.rexx < prev   
OS/2 REXX Batch file  |  1999-02-27  |  39KB  |  1,173 lines

  1. /* $VER: HereticPortal 1.0 (1999-02-26) */
  2. options results
  3. call Tags
  4. SELECT
  5. WHEN arg(1)="START" then call Start
  6. WHEN arg(1)="LOAD_1" then call Config("Load","1_")
  7. WHEN arg(1)="SAVE_1" then call Config("Save","1_")
  8. WHEN arg(1)="LOAD_2" then call Config("Load","2_")
  9. WHEN arg(1)="SAVE_2" then call Config("Save","2_")
  10. WHEN arg(1)="LOAD_3" then call Config("Load","3_")
  11. WHEN arg(1)="SAVE_3" then call Config("Save","3_")
  12. WHEN arg(1)="LOADSETTINGS" then call LoadSettings
  13. WHEN arg(1)="SAVESETTINGS" then call SaveSettings
  14. OTHERWISE call Init
  15. end
  16. exit
  17. Init:
  18. address HereticPortal
  19. window ID HMAIN TITLE '"HereticPortal v1.0"' COMMAND '"quit"' PORT HereticPortal ATTRS MUIA_Window_ScreenTitle '"HereticPortal 1.0 ©1999 Lorens Johansson Freely Distributable Emailware"'
  20. menu LABEL "HereticPortal"
  21. item COMMAND '"method 'MUIM_Application_AboutMUI' 0"' PORT HereticPortal ATTRS MUIA_Menuitem_Shortcut 'A' LABEL "About MUI"
  22. item ATTRS MUIA_Menuitem_Title '-1'
  23. item COMMAND '"quit"' PORT HereticPortal ATTRS MUIA_Menuitem_Shortcut 'Q' LABEL "Quit"
  24. endmenu
  25. menu LABEL "Settings"
  26. item COMMAND '"method 'MUIM_Application_OpenConfigWindow'"' PORT HereticPortal ATTRS MUIA_Menuitem_Shortcut 'M' LABEL "MUI Settings..."
  27. item ATTRS MUIA_Menuitem_Title '-1'
  28. item COMMAND '"HereticPortal.rexx LOADSETTINGS"' ATTRS MUIA_Menuitem_Shortcut 'L' LABEL "Load Settings"
  29. item COMMAND '"HereticPortal.rexx SAVESETTINGS"' ATTRS MUIA_Menuitem_Shortcut 'S' LABEL "Save Settings"
  30. endmenu
  31. text help '"HereticPortal v1.0 by\nLorens Johansson (http://members.xoom.com/snorslex)\nIf you use this program, you are required to\nEmail the author (SnorsleX@SoftHome.net). Otherwise,\nhow is he supposed to know to keep supporting\nHereticPortal ?!?\n\033rLorens Johansson"' label "\033c\033bHereticPortal v1.0\033n\n\033cLorens Johansson\n\033cFreely Distributable Emailware"
  32. group REGISTER ATTRS MUIA_CycleChain 1 LABELS "Heretic (68k&PPC),AHeretic (68k),AmiHeretic (68k&PPC),Information"
  33. group 
  34. group REGISTER ATTRS MUIA_CycleChain 1 LABELS "Main,Settings"
  35. group
  36. label "\033cThis is made for version: \033b0.935"
  37. group frame ATTRS MUIA_Group_Columns 3 label "Parameters"
  38. space HORIZ
  39. group
  40. group ATTRS MUIA_Group_Columns 8
  41. label "-asl"
  42. check ID 1_ASL ATTRS MUIA_CycleChain 1 HELP '"Use asl requester to select screen mode defsult is PAL|LORES\n(in PPC version you will see other screen modes than lores,\nbut please DO NOT select other resolution than 320*xxx)."'
  43. label "-bilinear"
  44. check ID 1_BIL ATTRS MUIA_CycleChain 1 HELP '"Enables bilinear filtering in hicolor mode.\nTake a look at bilinear.iff, to see the difference."'
  45. label "-directcgx"
  46. check ID 1_DIR ATTRS MUIA_CycleChain 1 HELP '"Use fast copy routines instead of writepixel\narray does not work with window mode."'
  47. label "-fps"
  48. check ID 1_FPS ATTRS MUIA_CycleChain 1 HELP '"Shows online fps counter."'
  49. label "-ham6"
  50. check ID 1_HA6 ATTRS MUIA_CycleChain 1 HELP '"Sets display in hicolor on AGA to ham6."'
  51. label "-ham8"
  52. check ID 1_HA8 ATTRS MUIA_CycleChain 1 HELP '"Sets display in hicolor on AGA to ham8. Default in ham6."'
  53. label "-hicolor"
  54. check ID 1_HIC ATTRS MUIA_CycleChain 1 HELP '"Enables hicolor rendering."'
  55. label "-joy"
  56. check ID 1_JOY ATTRS MUIA_CycleChain 1 HELP '"Enables joystick support."'
  57. label "-lowdetail"
  58. check ID 1_LOW ATTRS MUIA_CycleChain 1 HELP '"Turns on low detail floor and ceiling rendering.\nLow detail can be also switched on/off with L key during game."'
  59. label "-mouse"
  60. check ID 1_MOU ATTRS MUIA_CycleChain 1 HELP '"Turns mouse on."'
  61. label "-music"
  62. check ID 1_MUS ATTRS MUIA_CycleChain 1 HELP '"Enables music."'
  63. label "-nodoublebuffer"
  64. check ID 1_NOD ATTRS MUIA_CycleChain 1 HELP '"Turns off double buffering."'
  65. label "-nosfx"
  66. check ID 1_NOS ATTRS MUIA_CycleChain 1 HELP '"Disables sound fx effects."'
  67. label "-nosound"
  68. check ID 1_NOO ATTRS MUIA_CycleChain 1 HELP '"Disables music and sfx (no sound at all)."'
  69. label "-scaledgui"
  70. check ID 1_SCA ATTRS MUIA_CycleChain 1 HELP '"Enables GUI scaling routines. Otherwise all GUI elements\n(menus and texts) will be just copied to screen.\nCan be also turned on/off during game with S key."'
  71. label "-window"
  72. check ID 1_WIN ATTRS MUIA_CycleChain 1 HELP '"Display results in window on workbench screen workbench must have\nleast 15 bit depth doublebuffering does not work on window."'
  73. endgroup
  74. group ATTRS MUIA_Group_Columns 6
  75. label "-bus"
  76. check ID 1_CBU ATTRS MUIA_CycleChain 1 HELP '"Sets bus clock. Should be used with care. If Heretic runs too fast,\nyou can use this switch. After heretic starts, It prints actual bus\nclock. This value should be beetwen 50-70 Mhz. If it is really low\n(like 30Mhz or lower) type -bus 60000000 to get 60Mhz bus clock.\nTry different values here (but with care!!!)."' PORT INLINE,
  77. COMMAND """if %s=0 then do;
  78. address HereticPortal string ID 1_SBU ATTRS '0x80423661' 1;
  79. end;
  80. else do;
  81. address HereticPortal string ID 1_SBU ATTRS '0x80423661' 0;
  82. end"""
  83. string ID 1_SBU ATTRS MUIA_CycleChain 1 HELP '"Sets bus clock. Should be used with care. If Heretic runs too fast,\nyou can use this switch. After heretic starts, It prints actual bus\nclock. This value should be beetwen 50-70 Mhz. If it is really low\n(like 30Mhz or lower) type -bus 60000000 to get 60Mhz bus clock.\nTry different values here (but with care!!!)."'
  84. label "-c2p"
  85. check ID 1_CC2 ATTRS MUIA_CycleChain 1 HELP '""' PORT INLINE,
  86. COMMAND """if %s=0 then do;
  87. address HereticPortal popasl ID 1_SC2 ATTRS '0x80423661' 1;
  88. end;
  89. else do;
  90. address HereticPortal popasl ID 1_SC2 ATTRS '0x80423661' 0;
  91. end"""
  92. popasl ID 1_SC2 ATTRS MUIA_CycleChain 1
  93. label "-lbhack"
  94. check ID 1_CLB ATTRS MUIA_CycleChain 1 HELP '"Should be used with name of external c2p module:\n-c2p c2p/c2p_noe for example. With this feature, it is possible to add\nc2p modules for different cpus, and also to play heretic in higher\nresolution than 320x200. (Now only 320x200 c2p module exist (by noe))\n(This is only available in 68k version on AGA).\nBy default, Heretic opens c2p/c2p_noe module."' PORT INLINE,
  95. COMMAND """if %s=0 then do;
  96. address HereticPortal string ID 1_SLB ATTRS '0x80423661' 1;
  97. end;
  98. else do;
  99. address HereticPortal string ID 1_SLB ATTRS '0x80423661' 0;
  100. end"""
  101. string ID 1_SLB ATTRS MUIA_CycleChain 1
  102. label "-playdemo"
  103. check ID 1_CPL ATTRS MUIA_CycleChain 1 HELP '"Plays the given demo."' PORT INLINE,
  104. COMMAND """if %s=0 then do;
  105. address HereticPortal string ID 1_SPL ATTRS '0x80423661' 1;
  106. end;
  107. else do;
  108. address HereticPortal string ID 1_SPL ATTRS '0x80423661' 0;
  109. end"""
  110. string ID 1_SPL ATTRS MUIA_CycleChain 1 HELP '"Plays the given demo."'
  111. label "-timedemo"
  112. check ID 1_CTD ATTRS MUIA_CycleChain 1 HELP '"Timedemo..."' PORT INLINE,
  113. COMMAND """if %s=0 then do;
  114. address HereticPortal string ID 1_STD ATTRS '0x80423661' 1;
  115. end;
  116. else do;
  117. address HereticPortal string ID 1_STD ATTRS '0x80423661' 0;
  118. end"""
  119. string ID 1_STD ATTRS MUIA_CycleChain 1 HELP '"Timedemo..."'
  120. endgroup
  121. group ATTRS MUIA_Group_Columns 2
  122. label "Additional:"
  123. string ID 1_ADD
  124. endgroup
  125. endgroup
  126. space HORIZ
  127. endgroup
  128. space
  129. group ATTRS MUIA_Group_Columns 2
  130. label "Heretic Path:"
  131. popasl ID 1_PAT ATTRS MUIA_CycleChain 1 HELP '"Select the Heretic executable!"'
  132. endgroup
  133. endgroup
  134. group
  135. group frame ATTRS MUIA_Group_Columns 2 label "Heretic.cfg"
  136. button ID 1_GLO ATTRS MUIA_CycleChain 1 command """HereticPortal.rexx LOAD_1""" label "Load Heretic.cfg"
  137. button ID 1_GSA ATTRS MUIA_CycleChain 1 command """HereticPortal.rexx SAVE_1""" label "Save Heretic.cfg"
  138. endgroup
  139. group REGISTER ATTRS MUIA_CycleChain 1 LABELS "Misc,Keys,Mouse/Joy,ChatMacros"
  140. group scroll ATTRS MUIA_Group_Columns 2
  141. label "Mouse Sensitivity:"
  142. slider ID 1_1 ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 0 MUIA_Slider_Max 9
  143. label "Sfx Volume:"
  144. slider ID 1_2 ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 0 MUIA_Slider_Max 15
  145. label "Music Volume:"
  146. slider ID 1_3 ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 0 MUIA_Slider_Max 15
  147. label "Gamma Correct:"
  148. slider ID 1_4 ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 0 MUIA_Slider_Max 4
  149. label "Screen Blocks:"
  150. slider ID 1_5 ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 3 MUIA_Slider_Max 11
  151. endgroup
  152. group scroll ATTRS MUIA_Group_Columns 2
  153. label "Key Right:"
  154. poplist ID 1_20 ATTRS MUIA_CycleChain 1 labels keys
  155. label "Key Left:"
  156. poplist ID 1_21 ATTRS MUIA_CycleChain 1 labels keys
  157. lab